home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Hardware / MMKeyboard / Install / MMKeyboard.install < prev    next >
Encoding:
Text File  |  2002-10-27  |  41.4 KB  |  1,091 lines
  1. ; $VER: MMKeyboard.install 2.19 (19.08.2002)
  2. ; Install script for MMKeyboard (Workbench 2.0 or higher)
  3. ;
  4. (COMPLETE 0)
  5. ;(USER 2)
  6. (SET #ApplicationName "MMKeyboard")
  7. (SET #ApplicationDir  (EXPANDPATH "sys:tools"))
  8. (SET #ApplicationDir1 (EXPANDPATH "sys:utilities"))
  9. (SET #ApplicationDir2 "work:tools")
  10. (SET #ApplicationDir3 "tools:")
  11. (SET #ApplicationDir4 "work:utilities")
  12. (SET #ArchiveDir "/")
  13. (SET #Language -1)
  14. (SET #Documents -1)
  15. (SET #Keymaps 0)
  16. (SET #ApplicationKeyfile (CAT #ApplicationName ".key"))
  17. (SET #WBStartUp (EXPANDPATH "sys:WBStartup"))
  18. ;=============================================================================
  19. ; English strings
  20.  
  21. (SET default_lang 1)
  22.  
  23. (SET #bad-kick "You must have at least Workbench 2.0+")
  24. (SET #bad-installer
  25. (CAT "You have an old version of the program 'Installer' "
  26.      "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  27.      "Please check your configuration!\n"
  28. ))
  29.  
  30. (SET #App-InstallMsg
  31. (CAT "\n\n%s Installation Script.\n\n"
  32.         "This script installs %s on your Amiga.\n\n"
  33.         "Read the guide file for more information\n"
  34.         " on the distribution of %s.\n\n"
  35.         "%s © 1995-2002 Guido Mersmann\n"
  36.         "All rights reserved."
  37. ))
  38. (SET #App-MainMode "Please choose mode:")
  39.  
  40. (SET #App-Where
  41. (CAT "Where would you like to install %s ?\n"
  42.         "(A drawer will be created)"
  43. ))
  44.  
  45. (SET #App-Update
  46. (CAT "\n\nA %s drawer does already exist in the selected "
  47.         " directory.\n\n By selecting \"Proceed\", you"
  48.         " indicate that you want to update the %s"
  49.         " installation with the most recent version.\n\n"
  50.         "Several %s specific files will be overwritten!"
  51. ))
  52.  
  53. (SET #App-Main "Which %s version should be installed ?")
  54. (SET #App-Main-help
  55. (CAT "The OS2.0+ version should only be used on Systems with OS2."
  56.      " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!"
  57.      " Special OS3.0+ functions are used to save more memory."
  58. ))
  59.  
  60. (SET #App-Language "Which languages should be installed ?")
  61. (SET #App-Language-help
  62. (CAT "\nThe Amiga can be operated in many different"
  63.           " languages."
  64.           "To reduce the amount of space consumed by the"
  65.           " language files, you can select to have only the"
  66.           " files of specific languages copied.\n\n"
  67.           "Simply check the boxes of the languages you wish"
  68.           " to have available on your system.\n\n"
  69.           @askoptions-help
  70. ))
  71.  
  72. (SET #App-Keymaps "Which keymaps should be installed ?")
  73.  
  74. (SET #App-Help "Which Amiga-guide files should be installed ?")
  75.  
  76. (SET #App-Exit "\n\n%s installed !!\n\n%s can be found in your \"%s\" drawer (or partiton).")
  77. ;--------- DEINSTALLATION STRINGS
  78. (SET #App-DeInstallWhere "Where is the location of %s ?\n")
  79. (SET #App-Install "Install")
  80. (SET #App-DeInstall "Deinstall")
  81. (SET #bad-DeInstall "There is no %s installation at the specified position!")
  82. (SET #StartupRemove-prompt "\nRemove %s lines within your user-startup?")
  83. (SET #Deinstall-Done "\n%s is now deinstalled.")
  84. ;=============================================================================
  85. ; German strings
  86.  
  87. (IF (= @language "deutsch")
  88. (
  89. (SET default_lang 2)
  90.  
  91. (SET #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  92. (SET #bad-installer
  93. (CAT "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  94.      "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
  95.      "Bitte überprüfen Sie Ihre Konfiguration!\n"
  96. ))
  97.  
  98. (SET #App-InstallMsg
  99. (CAT "\n%s Installationsskript.\n\n"
  100.         "Dieses Skript installiert oder deinstalliert\n"
  101.         "%s auf Ihrem Amiga.\n\n"
  102.         "Lesen Sie die Anleitungsdatei für weitere Informationen"
  103.         " über den Vertrieb von %s.\n\n"
  104.         "%s © 1999-2002 Guido Mersmann\n"
  105.         "Alle Rechte reserviert."
  106. ))
  107. (SET #App-MainMode "Wählen Sie den gewünschten Vorgang:")
  108.  
  109. (SET #App-Where
  110. (CAT "Wo möchten Sie %s installieren ?\n"
  111.         "(Ein Verzeichnis wird angelegt)"
  112. ))
  113.  
  114. (SET #App-Update
  115. (CAT "\nEin %s-Verzeichnis existiert im ausgewählen"
  116.         " Verzeichnis.\n\n Wenn Sie fortfahren,"
  117.         " bestätigen Sie, daß Sie die alte %s-Installation"
  118.         " mit der neuesten Version überschreiben wollen.\n\n"
  119.         "Verschiedene %s-Dateien (z.B überflüssige Dateien) werden falls nötig überschrieben!"
  120. ))
  121.  
  122. (SET #App-Main "Welche Version von %s möchten Sie installieren?")
  123. (SET #App-Main-help
  124. (CAT "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0."
  125.      " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen"
  126.      " benutzt, wenn sich %s im Hintergrund befindet. Dazu MUß"
  127.      " die Locale.library eingebunden sein. Für die OS3.0+ gilt das Selbe"
  128.      " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die"
  129.      " weiteren Speicher sparen."
  130. ))
  131.  
  132. (SET #App-Language "Welche Sprachen sollen installiert werden ?")
  133.  
  134. (SET #App-Language-help
  135. (CAT "\nDer Amiga kann in vielen verschiedenen Sprachen"
  136.          " arbeiten. Um Plattenkapazität zu sparen können Sie"
  137.          " nur die Sprachen anwählen, die sie benötigen"
  138.          " Haken Sie also einfach die Sprachen ab, die Sie"
  139.          " Ihrem System zugänglich machen wollen."
  140.           @askoptions-help
  141. ))
  142.  
  143. (SET #App-Help "Welche Anleitungs- und Informationsdateien wollen Sie installieren ?")
  144.  
  145. (SET #App-Keymaps "Welche Keymaps wollen Sie installieren ?")
  146.  
  147. (SET #App-Exit "\n\n%s installiert!!\n\nSie finden %s im Verzeichnis \"%s\"")
  148. ;------- DEINSTALL STRINGS
  149. (SET #App-DeinstallWhere "Wo liegt %s auf Ihrer Platte ?\n")
  150. (SET #App-Install "%s Installieren")
  151. (SET #App-DeInstall "%s Deinstallieren")
  152. (SET #bad-DeInstall "Es gibt keine %s Installation an der angegeben Position")
  153. (SET #StartupRemove-prompt "\n\nDie zu %s gehörenden Einträge in der User-startup werden gelöscht!")))
  154. (SET #Deinstall-Done "\n%s ist jetzt deinstalliert!")
  155. ;=============================================================================
  156. ; français strings
  157.  
  158. (IF (= @language "français")
  159. (
  160. (SET default_lang 4)
  161.  
  162. (SET #bad-kick "Vous devez avoir le Workbench 2.0 au moins")
  163. (SET #bad-installer
  164. (CAT "Vous avez une ancienne version du programme 'Installer' "
  165.      "sur votre Amiga!\n\nLa procédure d'installation a besoin d'Installer 42.9 ou supérieur.\n\n"
  166.      "Veuillez vérifier votre configuration!\n"
  167. ))
  168.  
  169. (SET #App-InstallMsg
  170. (CAT "\n\nScript d'installation pour %s.\n\n"
  171.         "Ce script installe %s sur votre Amiga.\n\n"
  172.         "Lisez le guide pour de plus amples informations\n"
  173.         " sur cette distribution de %s.\n\n"
  174.         "%s © 1999-2002 Guido Mersmann\n"
  175.         "Tous droits réservés."
  176. ))
  177. (SET #App-MainMode "Veuillez choisir le mode:")
  178.  
  179. (SET #App-Where
  180. (CAT "Où voulez-vous installer %s ?\n"
  181.         "(Un tiroir sera crée)"
  182. ))
  183.  
  184. (SET #App-Update
  185. (CAT "\n\nUn tiroir %s existe déja dans le répertoire "
  186.         " sélectionné.\n\n En sélectionnant \"Continuer\", vous"
  187.         " indiquez que vous voulez mettre à jour l'installation"
  188.         " de %s par la version la plus récente.\n\n"
  189.         "Plusieurs fichiers spécifiques à %s vont être mis à jour!"
  190. ))
  191.  
  192. (SET #App-Main "Quelle version de %s doit être installée ?")
  193. (SET #App-Main-help
  194. (CAT "La version OS2.0+ ne devrait être utilisée que sur un système tournant sous AmigaOS 2."
  195.      " Les versions OS2.1+ et OS3.0+ utilisent moins de mémoire. Le système de localisation est nécéssaire!"
  196.      " Des fonction spéciales de l'OS3.0+ sont utilisées pour gagner plus de mémoire."
  197. ))
  198.  
  199. (SET #App-Language "Quelles langues doivent être installées ?")
  200. (SET #App-Language-help
  201. (CAT "\nL'Amiga peut être utilisé dans beaucoup de langues"
  202.           " différentes."
  203.           "Pour réduire la place utilisée par les fichiers de"
  204.           " localisation, vous pouvez choisir de n'avoir"
  205.           " que certaines langues spécifiques installées.\n\n"
  206.           "Sélectionnez simplement les cases à cocher correspondant aux"
  207.           " langues que vous voulez sur votre système.\n\n"
  208.           @askoptions-help
  209. ))
  210.  
  211. (SET #App-Help "Quels fichiers d'aide doivent être installés ?")
  212.  
  213. (SET #App-Keymaps "Which keymaps should be installed ?")
  214.  
  215. (SET #App-Exit "\n\n%s est installé !!\n\n%s se trouve dans le tiroir (ou la partition) \"%s\".")
  216. ;--------- DEINSTALLATION STRINGS
  217. (SET #App-DeInstallWhere "Où est situé %s ?\n")
  218. (SET #App-Install "Installer")
  219. (SET #App-DeInstall "Désinstaller")
  220. (SET #bad-DeInstall "Il n'y a aucune installation de %s à l'emplacement spécifié!")
  221. (SET #StartupRemove-prompt "\nSuppression des lignes relatives à %s dans votre user-startup?")
  222. (SET #Deinstall-Done "\n%s est maintenant désinstallé.")
  223. ;---------
  224. ))
  225. ;=============================================================================
  226. ; Español strings
  227.  
  228. (IF (= @language "español")
  229. (
  230. (SET default_lang 8)
  231.  
  232. (SET #bad-kick "Necesitas al menos Workbench 2.0+")
  233. (SET #bad-installer
  234. (CAT "Tienes una versión antigua del 'Installer' "
  235.      "en tu Amiga!\n\nEl proceso de instalación requiere al menos el Installer 42.9.\n\n"
  236.      "Revisa tu configuración!\n"
  237. ))
  238.  
  239. (SET #App-InstallMsg
  240. (CAT "\n\nGuión de instalación de %s .\n\n"
  241.         "Este script instala %s en tu Amiga.\n\n"
  242.         "Lee el amigaguide para más información\n"
  243.         " sobre la distribución de %s.\n\n"
  244.         "%s © 1999-2002 Guido Mersmann\n"
  245.         "Todos los derechos reservados."
  246. ))
  247. (SET #App-MainMode "Elige uno de los modos:")
  248.  
  249. (SET #App-Where
  250. (CAT "¿ Dónde quieres instalar %s ?\n"
  251.         "(Un cajón será creado)"
  252. ))
  253.  
  254. (SET #App-Update
  255. (CAT "\n\nYa existe un cajón %s en ese"
  256.         " directorio.\n\n Si seleccionas \"Seguir\","
  257.         " actualizarás la instalación %s"
  258.         " con la versión más reciente.\n\n"
  259.         "!Algunos ficheros específicos de %s serán sobreescritos¡"
  260. ))
  261.  
  262. (SET #App-Main "¿ Qué versión de %s quieres instalar ?")
  263. (SET #App-Main-help
  264. (CAT "La versión OS2.0+ sólo debería funcionar bajo sistemas con OS2."
  265.      " Las versiones OS2.1+ y OS3.0+ requieren menos Memoria. Necesitas Locale!"
  266.      " Algunas funciones del OS3.0+ reducen el consumo de memoria."
  267. ))
  268.  
  269. (SET #App-Language "¿ Qué lenguajes quieres instalar ?")
  270. (SET #App-Language-help
  271. (CAT "\nRl Amiga puede trabajar en numerosos lenguajes"
  272.           " diferentes."
  273.           "Parar reducir la cantidad de espacio necesaria para los"
  274.           " ficheros de lenguaje, puedes copiar sólo"
  275.           " los lenguajes específicos.\n\n"
  276.           "Marca las cajas de los lenguajes que quieras"
  277.           " tener disponibles en tu sistema.\n\n"
  278.           @askoptions-help
  279. ))
  280.  
  281. (SET #App-Help "¿Qué Amiga-guides queres instalar ?")
  282.  
  283. (SET #App-Keymaps "Which keymaps should be installed ?")
  284.  
  285. (SET #App-Exit "\n\n%s instalado !!\n\n%s está en el cajón \"%s\" (o partición).")
  286. ;--------- DEINSTALLATION STRINGS
  287. (SET #App-DeInstallWhere "¿ En qué directorio está %s ?\n")
  288. (SET #App-Install "Instalar")
  289. (SET #App-DeInstall "Desinstalar")
  290. (SET #bad-DeInstall "No hay instalación de %s en el lugar indicado")
  291. (SET #StartupRemove-prompt "\n¿ Elimino las líneas %s de tu fichero user-startup ?")
  292. (SET #Deinstall-Done "\n%s ha sido desinstalado.")
  293. ;---------
  294. ))
  295. ;=============================================================================
  296. ; Português strings
  297.  
  298. (IF (= @language "português")
  299. (
  300. (SET default_lang 16)
  301.  
  302. (SET #bad-kick "Você necessita pelo menos do Workbench 2.0+")
  303. (SET #bad-installer
  304. (CAT "Você tem uma versão antiga do 'Installer' "
  305.      "no seu Amiga!\n\nO processo de instalação requer no minimo o Installer 42.9.\n\n"
  306.      "Por favor verifique a sua configuração!\n"
  307. ))
  308.  
  309. (SET #App-InstallMsg
  310. (CAT "\n\nScript de instalação %s .\n\n"
  311.         "Este script instala %s no seu Amiga.\n\n"
  312.         "Leia o documento amigaguide para mais informações\n"
  313.         " acerca da distribução de %s.\n\n"
  314.         "%s © 1999-2002 Guido Mersmann\n"
  315.         "Todos os direitos reservados."
  316. ))
  317. (SET #App-MainMode "Por favor escolha um dos modos:")
  318.  
  319. (SET #App-Where
  320. (CAT "Onde deseja instalar %s ?\n"
  321.         "(Será criado uma gaveta)"
  322. ))
  323.  
  324. (SET #App-Update
  325. (CAT "\n\njá existe uma gaveta %s nesse"
  326.         " directório.\n\n Se seleccionar \"Proceguir\", você"
  327.         " indicará que deseja actualizar a instalação %s"
  328.         " para a versão mais recente.\n\n"
  329.         "Alguns ficheiros específicos em %s seram sobstituidos!"
  330. ))
  331.  
  332. (SET #App-Main "Que versão de %s deseja instalar ?")
  333. (SET #App-Main-help
  334. (CAT "A versão OS2.0+ só deve ser usada em Sistemas com o OS2."
  335.      " As versões OS2.1+ e OS3.0+ requerem menos Memória. Necessita do Locale!"
  336.      " Algumas funções do OS3.0+ reduzem o consumo de memória."
  337. ))
  338.  
  339. (SET #App-Language "Que idioma deseja instalar ?")
  340. (SET #App-Language-help
  341. (CAT "\nO Amiga pode funcionar com vários idiomas"
  342.           " diferentes."
  343.           "Para reduzir a quantidade de espaço necessário para os"
  344.           " ficheiros de idiomas, você pode copiar só"
  345.           " os idiomas que quiser.\n\n"
  346.           "Simplesmente veja as gavetas dos idiomas que quer"
  347.           " ter disponíveis no seu Sistema.\n\n"
  348.           @askoptions-help
  349. ))
  350.  
  351. (SET #App-Help "Que documentos Amiga-guides deseja instalar ?")
  352.  
  353. (SET #App-Keymaps "Which keymaps should be installed ?")
  354.  
  355. (SET #App-Exit "\n\n%s instalado !!\n\n%s pode ser encontrado na gaveta \"%s\" (ou partição).")
  356. ;--------- DEINSTALLATION STRINGS
  357. (SET #App-DeInstallWhere "Em que directório está %s ?\n")
  358. (SET #App-Install "Instalar")
  359. (SET #App-DeInstall "Desinstalar")
  360. (SET #bad-DeInstall "Não existe nenhuma instalação de %s no lugar indicado")
  361. (SET #StartupRemove-prompt "\nRemovo as linhas %s no seu ficheiro user-startup ?")
  362. (SET #Deinstall-Done "\n%s foi agora desinstalado.")
  363. ;---------
  364. ))
  365. ;=============================================================================
  366. ; Polish strings
  367.  
  368. (IF (= @language "polski")
  369. (
  370. (SET default_lang 32)
  371.  
  372. (SET #bad-kick "Ten program wymaga co najmniej systemu Workbench 2.0+")
  373. (SET #bad-installer
  374. (CAT "Na swojej Amidze masz starâ wersjë 'Installera' !"
  375.      "\nTen skrypt wymaga Installera w wersji 42.0.\n\n"
  376.      "Proszë sprawdú swojâ konfiguracjë!\n"
  377. ))
  378.  
  379. (SET #App-InstallMsg
  380. (CAT "\n\nSkrypt instalujâcy %s.\n\n"
  381.         "Ten skrypt zainstaluje %s na Twojej Amidze.\n\n"
  382.         "Wiëcej informacji o dystrybucji %s\n"
  383.         " znajdziesz w dokumentacji.\n\n"
  384.         "%s © 1999-2002 Guido Mersmann\n"
  385.         "Wszelkie prawa zatrzeûone."
  386. ))
  387. (SET #App-MainMode "Wybierz tryb:")
  388.  
  389. (SET #App-Where
  390. (CAT "Gdzie chcesz zainstalowaê %s ?\n"
  391.         "(Katalog zostanie utworzony)"
  392. ))
  393.  
  394. (SET #App-Update
  395. (CAT "\n\nKatalog %s istnieje juû w wybranym miejscu"
  396.         "\n\n Wybierz  \"Proceed\", "
  397.         " jeûeli chcesz dokonaê aktualizacji %s"
  398.         " z najnowszâ dostëpnâ wersjâ.\n\n"
  399.         "Kilka plików %s zostanie zapisanych na nowo!"
  400. ))
  401.  
  402. (SET #App-Main "Która wersja %s powinna zostaê zainstalowana?")
  403. (SET #App-Main-help
  404. (CAT "Wersja OS2.0+ powinna byê uûywana na systemach OS2."
  405.      " Wersje OS2.1+ i OS3.0+ potrzebujâ mniej pamiëci. Wymagajâ jednak lokalizacji!"
  406.      " Specjane funkcje OS3.0+ uûywane sâ aby zmniejszyê zuûycie pamiëci."
  407. ))
  408.  
  409. (SET #App-Language "Które jëzyki powinny zostaê zainstalowane?")
  410. (SET #App-Language-help
  411. (CAT "\nAmiga moûe dziaîaê w wielu róûnych"
  412.           " jëzykach."
  413.           "Aby zmniejszyê iloôê uûywanego przez pliki"
  414.           " z tîumaczeniami, powinieneô wybraê tylko interesujâce"
  415.           " Cië pliki.\n\n"
  416.           "Po prostu zaznacz odpowiednie jëzyki, które chcesz"
  417.           " mieê zainstalowane na swoim dysku.\n\n"
  418.           @askoptions-help
  419. ))
  420.  
  421. (SET #App-Help "Które pliki Amiga-guide powinny zostaê zainstalowane?")
  422.  
  423. (SET #App-Keymaps "Which keymaps should be installed ?")
  424.  
  425. (SET #App-Exit "\n\n%s zostaî zaistalowany!!\n\n%s znajdziesz w katalogu \"%s\".")
  426. ;--------- DEINSTALLATION STRINGS
  427. (SET #App-DeInstallWhere "Gdzie znajduje sië %s ?\n")
  428. (SET #App-Install "Instaluj")
  429. (SET #App-DeInstall "Odinstaluj")
  430. (SET #bad-DeInstall "W wybranym miejscu nie ma %s !")
  431. (SET #StartupRemove-prompt "\nUsunâê linie %s ze swojego pliku user-startup?")
  432. (SET #Deinstall-Done "\n%s zostaî odinstalowany.")
  433. ;---------
  434. ))
  435. ;=============================================================================
  436.  
  437. ;----------------------------------------------------------------------------
  438. ;----------------------------------------------------------------------------
  439. ;       P_Requirements
  440. ;----------------------------------------------------------------------------
  441. ;----------------------------------------------------------------------------
  442. (PROCEDURE P_Requirements
  443. ; Workbench 37 or better required
  444. (IF (< (/ (getversion) 65536) 37)
  445. (
  446.   (abort #bad-kick)
  447. )
  448. )
  449. ; Installer 42.9 or better required
  450. (if (< @installer-version 2752521)
  451. (
  452. (abort #bad-installer)
  453. )
  454. ) ;if
  455. ) ;PROCDURE
  456. ;----------------------------------------------------------------------------
  457. ;----------------------------------------------------------------------------
  458. ;       P_DeInstall
  459. ;----------------------------------------------------------------------------
  460. ;----------------------------------------------------------------------------
  461. (PROCEDURE P_DeInstall #InstallerMode
  462.  
  463. (SET #Dummy             (ASKCHOICE
  464.                         (PROMPT #App-MainMode)
  465.                         (HELP @askchoice-help)
  466.                         (CHOICES
  467.                                 (#App-Install #ApplicationName)
  468.                                 (#App-Deinstall #ApplicationName)
  469.                         )
  470.                         ;(DEFAULT #Documents)
  471.                         )
  472. )
  473. ) ;PROCDURE
  474. ;----------------------------------------------------------------------------
  475. ;----------------------------------------------------------------------------
  476. ;       GetApplicationDir
  477. ;----------------------------------------------------------------------------
  478. ;----------------------------------------------------------------------------
  479. (PROCEDURE P_GetApplicationDir
  480. (SET #Dummy #ApplicationDir)
  481. (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1))
  482. (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2))
  483. (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3))
  484. (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4))
  485.  
  486. (SET #ApplicationDir
  487.         (TACKON
  488.                 (ASKDIR
  489.                         (PROMPT (#App-Where #ApplicationName))
  490.                         (HELP @askdir-help)
  491.                         (default #Dummy)
  492.                 )
  493.                 #ApplicationName
  494.         )
  495. )
  496. (SET @default-dest #ApplicationDir)
  497. ) ;PROCEDURE
  498. ;----------------------------------------------------------------------------
  499. ;----------------------------------------------------------------------------
  500. ;       GetDeinstallDir
  501. ;----------------------------------------------------------------------------
  502. ;----------------------------------------------------------------------------
  503. (PROCEDURE P_GetDeInstallDir
  504. (SET #Dummy #ApplicationDir)
  505. (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1))
  506. (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2))
  507. (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3))
  508. (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4))
  509.  
  510. (SET #ApplicationDir
  511.                 (ASKDIR
  512.                         (PROMPT (#App-DeInstallWhere #ApplicationName))
  513.                         (HELP @askdir-help)
  514.                         (default #Dummy)
  515.                 )
  516. )
  517.          (SET #Dummy (EXISTS (TACKON #Applicationdir #ApplicationName)))
  518.  
  519.         (Select #Dummy
  520.          (abort (#bad-DeInstall #ApplicationName))
  521.          (SET #Applicationdir #Applicationdir)
  522.          (SET #Applicationdir (TACKON #Applicationdir #ApplicationName))
  523.         ) ;Select
  524. (SET @default-dest #ApplicationDir)
  525.  
  526. ) ;PROCEDURE
  527. ;----------------------------------------------------------------------------
  528. ;----------------------------------------------------------------------------
  529. ;       Ask for Catalogs
  530. ;----------------------------------------------------------------------------
  531. ;----------------------------------------------------------------------------
  532. (PROCEDURE P_AskCatalogs #Language
  533.  
  534. (SET #Dummy     (ASKOPTIONS
  535.                 (PROMPT #App-Language)
  536.                 (HELP #App-Language-help)
  537.                 (CHOICES
  538.                         "English"
  539.                         "Deutsch"
  540.                 )
  541.                 (DEFAULT default_lang)
  542.         )
  543. )
  544.  
  545. (IF (AND (> #Binary 0) (= #Dummy 0))
  546.  (SET #Dummy 1)
  547. )
  548. (IF (= #Binary 0)
  549.  (SET #Dummy (BITAND #Dummy (BITNOT 1)))
  550. )
  551. (SET #Dummy #Dummy) ;Return #Dummy
  552. ) ;PROCEDURE
  553. ;----------------------------------------------------------------------------
  554. ;----------------------------------------------------------------------------
  555. ;       Copy Selected Catalogs
  556. ;----------------------------------------------------------------------------
  557. ;----------------------------------------------------------------------------
  558. (PROCEDURE P_CopyCatalogs #Language #Catalogs
  559. (SET n 0)
  560. (SET #DestinationRoot (TACKON #ApplicationDir "Catalogs"))
  561. (SET #SourceRoot (TACKON #ArchiveDir #Catalogs))
  562. (MAKEDIR #DestinationRoot)
  563.  
  564. (while (< n 2)
  565.         (SET #Dummy (SELECT n "english" "deutsch"))
  566.         (
  567.                 (IF (IN #Language n)
  568.                 (
  569.         (MAKEDIR (TACKON #DestinationRoot #Dummy))
  570.                         (COPYFILES
  571.                                 (SOURCE (TACKON #SourceRoot #Dummy))
  572.                                 (DEST (TACKON #DestinationRoot #Dummy))
  573.                                 (HELP @copyfiles-help)
  574.                                 (ALL)
  575.                         )
  576.                 )
  577.                 )
  578.         )
  579. (SET n (+ n 1))
  580. )
  581. ) ;PROCEDURE
  582. ;----------------------------------------------------------------------------
  583. ;----------------------------------------------------------------------------
  584. ;       Ask for Help
  585. ;----------------------------------------------------------------------------
  586. ;----------------------------------------------------------------------------
  587. (PROCEDURE P_AskHelp #Documents
  588. (SET #Dummy             (ASKOPTIONS
  589.                         (PROMPT #App-Help)
  590.                         (HELP @askoptions-help)
  591.                         (CHOICES
  592.                                 "english"
  593.                                 "deutsch"
  594.                         )
  595.                         (DEFAULT default_lang)
  596.                   )
  597. )
  598. ) ;PROCEDURE
  599. ;----------------------------------------------------------------------------
  600. ;----------------------------------------------------------------------------
  601. ;       Copy Help
  602. ;----------------------------------------------------------------------------
  603. ;----------------------------------------------------------------------------
  604. (PROCEDURE P_CopyHelp #Documents
  605. (SET n 0)
  606. (SET #DestinationRoot (TACKON #ApplicationDir "Help"))
  607. (SET #SourceRoot (TACKON #ArchiveDir "Help"))
  608. (MAKEDIR #DestinationRoot)
  609.  
  610. (while (< n 2)
  611.         (SET #Dummy (SELECT n
  612.                 "english"
  613.                 "deutsch"
  614.                      )
  615.         )
  616.         (
  617.                 (IF (IN #Documents n)
  618.                 (
  619.         (MAKEDIR (TACKON #DestinationRoot #Dummy))
  620.                         (COPYFILES
  621.                                 (SOURCE (TACKON #SourceRoot #Dummy))
  622.                                 (DEST (TACKON #DestinationRoot #Dummy))
  623.                                 (HELP @copyfiles-help)
  624.                                 (INFOS)
  625.                                 (ALL)
  626.                         )
  627.                 )
  628.                 )
  629.         )
  630. (SET n (+ n 1))
  631. )
  632. ) ;PROCEDURE
  633. ;----------------------------------------------------------------------------
  634. ;----------------------------------------------------------------------------
  635. ;       Copy_Dir (Dir)
  636. ;----------------------------------------------------------------------------
  637. ;----------------------------------------------------------------------------
  638. (PROCEDURE P_CopyDir #Dummy
  639.  
  640. (SET #DestinationRoot (TACKON #ApplicationDir #Dummy))
  641. (SET #SourceRoot (TACKON #ArchiveDir #Dummy))
  642. (MAKEDIR #DestinationRoot)
  643.  
  644.                    (COPYFILES
  645.         (SOURCE #SourceRoot)
  646.         (DEST #DestinationRoot)
  647.         (HELP @copyfiles-help)
  648.         (OPTIONAL <force>)
  649.         (ALL)
  650.         (INFOS)
  651.                    )
  652. ) ;PROCEDURE
  653. ;----------------------------------------------------------------------------
  654. ;----------------------------------------------------------------------------
  655. ;       Copy_Dir2 (Dir)
  656. ;----------------------------------------------------------------------------
  657. ;----------------------------------------------------------------------------
  658. (PROCEDURE P_CopyDir2 #Dummy #Dummy2
  659.  
  660. (SET #SourceRoot (TACKON #ArchiveDir #Dummy))
  661. (SET #DestinationRoot (TACKON #ApplicationDir #Dummy2))
  662. (MAKEDIR #DestinationRoot)
  663.  
  664.                    (COPYFILES
  665.         (SOURCE #SourceRoot)
  666.         (DEST #DestinationRoot)
  667.         (HELP @copyfiles-help)
  668.         (OPTIONAL <force>)
  669.         (ALL)
  670.         (INFOS)
  671.                    )
  672. ) ;PROCEDURE
  673. ;----------------------------------------------------------------------------
  674. ;----------------------------------------------------------------------------
  675. ;       Copy_File (Name)
  676. ;----------------------------------------------------------------------------
  677. ;----------------------------------------------------------------------------
  678. (PROCEDURE P_CopyFile #Dummy
  679.  
  680. (if (<> (exists (TACKON #ArchiveDir #Dummy) (noreq)) 0) 
  681. (
  682.                    (COPYFILES
  683.         (SOURCE (TACKON #ArchiveDir #Dummy))
  684.         (DEST #ApplicationDir)
  685.         (HELP @copyfiles-help)
  686.         (OPTIONAL <force>)
  687.         (ALL)
  688.         (INFOS)
  689.                    )
  690. )
  691. ) ;If
  692. ) ;PROCEDURE
  693. ;----------------------------------------------------------------------------
  694. ;----------------------------------------------------------------------------
  695. ;       Copy_File2 (Name)
  696. ;----------------------------------------------------------------------------
  697. ;----------------------------------------------------------------------------
  698. (PROCEDURE P_CopyFile2 #Dummy #Dummy2
  699.  
  700. (if (<> (exists (TACKON #ArchiveDir #Dummy) (noreq)) 0) 
  701. (
  702.                    (COPYFILES
  703.         (SOURCE (TACKON #ArchiveDir #Dummy))
  704.         (DEST #ApplicationDir)
  705.         (NEWNAME #Dummy2)
  706.         (HELP @copyfiles-help)
  707.         (OPTIONAL <force>)
  708.         (ALL)
  709.         (INFOS)
  710.                    )
  711. )
  712. ) ;If
  713. ) ;PROCEDURE
  714. ;----------------------------------------------------------------------------
  715. ;----------------------------------------------------------------------------
  716. ;       P_Update
  717. ;----------------------------------------------------------------------------
  718. ;----------------------------------------------------------------------------
  719. (PROCEDURE P_Update
  720. (if (= (exists #ApplicationDir) 2)
  721.         (message (#App-Update #ApplicationName #ApplicationName #ApplicationName))
  722. )
  723. ) ;PROCEDURE
  724. ;----------------------------------------------------------------------------
  725. ;----------------------------------------------------------------------------
  726. ;       P_AskBinary
  727. ;----------------------------------------------------------------------------
  728. ;----------------------------------------------------------------------------
  729. (PROCEDURE P_AskBinary
  730. (set #Dummy (/ (getversion) 65536))
  731.  
  732. (if (= #Dummy 37) (set #Binary 0))
  733. (if (= #Dummy 38) (set #Binary 1))
  734. (if (>= #Dummy 39) (set #Binary 2))
  735.  
  736. (set #Dummy (/ (getversion "icon.library" (Resident)) 65536))
  737. (if (>= #Dummy 44) (set #Binary 3))
  738.  
  739. (set #Dummy (/ (getversion "amithlon.device" (Resident)) 65536))
  740. (if (>= #Dummy 1) (set #Binary 4))
  741.  
  742.  
  743. (set #Binary (askchoice
  744.         (prompt (#App-Main #ApplicationName))
  745.         (help (#App-Main-help #ApplicationName))
  746.         (choices
  747.                         "OS2.0+"
  748.                         "OS2.1+"
  749.                         "OS3.0+"
  750.                         "OS3.5+"
  751.                         "Amithlon"
  752.                         )
  753.         (default #Binary)
  754.             )
  755. )
  756. ) ;PROCEDURE
  757. ;----------------------------------------------------------------------------
  758. ;----------------------------------------------------------------------------
  759. ;       P_CopyBinary
  760. ;----------------------------------------------------------------------------
  761. ;----------------------------------------------------------------------------
  762. (PROCEDURE P_CopyBinary #Dummy
  763.  
  764. (set #BinaryName (SELECT #Binary #Dummy (CAT "Bin/" #Dummy "_OS21") (CAT "Bin/" #Dummy "_OS30") (CAT "Bin/" #Dummy "_OS30") (CAT "Bin/" #Dummy "_Amithlon") ))
  765. (copyfiles
  766.         (source (tackon #ArchiveDir #BinaryName) (infos))
  767.         (dest #ApplicationDir)
  768.         (newname #Dummy)
  769.         (help @copyfiles-help)
  770.         (optional <force>)
  771. )
  772. ) ;PROCEDURE
  773. ;----------------------------------------------------------------------------
  774. ;----------------------------------------------------------------------------
  775. ;       P_MoveWBStartUp
  776. ;----------------------------------------------------------------------------
  777. ;----------------------------------------------------------------------------
  778. (PROCEDURE P_MoveWBStartUp #Dummy
  779.  
  780.         (COPYFILES
  781.         (SOURCE (TACKON #ArchiveDir (CAT #Dummy ".info")))
  782.         (DEST #WBStartUp)
  783.         (HELP @copyfiles-help)
  784.         (OPTIONAL <force>)
  785.         (ALL)
  786.         )
  787.  
  788.         (TOOLTYPE
  789.         (DEST (TACKON #WBStartUp #Dummy))
  790.         (SETDEFAULTTOOL (TACKON #ApplicationDir #Dummy))
  791.         (SETTOOLTYPE "CX_POPUP" "NO")
  792.         (NOPOSITION)
  793.         (SAFE)
  794.         )
  795. ) ;PROCEDURE
  796. ;----------------------------------------------------------------------------
  797. ;----------------------------------------------------------------------------
  798. ;       P_KeyFile
  799. ;----------------------------------------------------------------------------
  800. ;----------------------------------------------------------------------------
  801. (PROCEDURE P_KeyFile
  802.  
  803. (SET #Dummy (tackon (tackon #ArchiveDir "Keyfile") #ApplicationKeyfile))
  804.  
  805. (if (<> (exists #Dummy (noreq)) 0) ((P_CopyDir "KeyFile"))
  806. )
  807. ) ;PROCEDURE
  808. ;----------------------------------------------------------------------------
  809. ;----------------------------------------------------------------------------
  810. ;       P_CopyArchiveIcon
  811. ;----------------------------------------------------------------------------
  812. ;----------------------------------------------------------------------------
  813. (PROCEDURE P_CopyArchiveIcon
  814.                    (COPYFILES
  815.         (SOURCE (CAT (CAT (TACKON #ArchiveDir "/") #ApplicationName) ".info"))
  816.         (DEST (TACKON #ApplicationDir "/"))
  817.         (HELP @copyfiles-help)
  818.                    )
  819. ) ;PROCEDURE
  820. ;----------------------------------------------------------------------------
  821. ;----------------------------------------------------------------------------
  822. ;       P_AskBool
  823. ;----------------------------------------------------------------------------
  824. ;----------------------------------------------------------------------------
  825. (PROCEDURE P_AskBool #dummy
  826.  (SET #dummy (ASKBOOL      (prompt #dummy)
  827.            (help @askbool-help)
  828.            (default 1)
  829.              )
  830.  )
  831. ) ;PROCEDURE
  832. ;----------------------------------------------------------------------------
  833. ;----------------------------------------------------------------------------
  834. ;       Ask for Keymap
  835. ;----------------------------------------------------------------------------
  836. ;----------------------------------------------------------------------------
  837. (PROCEDURE P_AskKeymap #Keymaps
  838. (SET #Dummy             (ASKOPTIONS
  839.                         (PROMPT #App-Keymaps)
  840.                         (HELP @askoptions-help)
  841.                         (CHOICES
  842.                                 "Usa"
  843.                                 "Usa2"
  844.                                 "Deutsch"
  845.                                 "Français"
  846.                                 "British"
  847.                                 "Español"
  848.                                 "Svenska"
  849.                         )
  850.                         (DEFAULT 0)
  851.                   )
  852. )
  853. ) ;PROCEDURE
  854. ;----------------------------------------------------------------------------
  855. ;----------------------------------------------------------------------------
  856. ;       Copy Keymap
  857. ;----------------------------------------------------------------------------
  858. ;----------------------------------------------------------------------------
  859. (PROCEDURE P_CopyKeymap #Keymaps
  860. (SET n 0)
  861. (SET #DestinationRoot "Keymaps:")
  862. (SET #SourceRoot (TACKON #ArchiveDir "Keymaps/"))
  863. (MAKEDIR #DestinationRoot)
  864.  
  865. (while (< n 7)
  866.         (SET #Dummy (SELECT n
  867.                 "Win_usa"
  868.                 "Win_usa2"
  869.                 "Win_d"
  870.                 "Win_f"
  871.                 "Win_gb"
  872.                 "Win_e"
  873.                 "Win_s"
  874.                      )
  875.         )
  876.         (
  877.                 (IF (IN #Keymaps n)
  878.                 (
  879.                         (COPYFILES
  880.                                 (SOURCE (TACKON #SourceRoot #Dummy))
  881.                                 (DEST #DestinationRoot)
  882.                                 (HELP @copyfiles-help)
  883.                                 (INFOS)
  884.                                 (ALL)
  885.                         )
  886.                 )
  887.                 )
  888.         )
  889. (SET n (+ n 1))
  890. )
  891. ) ;PROCEDURE
  892.  
  893. ;=============================================================================
  894. (PROCEDURE P_ShowLogo
  895.  
  896. (effect "lower_right" "radial" $01384C $5398C1)
  897. (showmedia "MMKeyboardLogo" "MMKeyboardLogo.ilbm" "upper_left" "none" 0)
  898.  
  899. ) ;PROCEDURE
  900. ;----------------------------------------------------------------------------
  901. ;----------------------------------------------------------------------------
  902. ;       MAIN
  903. ;----------------------------------------------------------------------------
  904. ;----------------------------------------------------------------------------
  905. (P_Requirements)
  906. (P_ShowLogo)
  907. (message (#App-installmsg #ApplicationName #ApplicationName #ApplicationName #ApplicationName))
  908. (SET #InstallerMode (P_DeInstall))
  909. (welcome)
  910. ;-----------------------------------------------
  911. (IF (= #InstallerMode "0")
  912. (
  913. ;-----------------------------------------------
  914.  (SET #ApplicationDir (P_GetApplicationDir))
  915.  
  916. (COMPLETE 1)
  917.  (P_Update)
  918.  (SET #Binary (P_AskBinary))
  919. (COMPLETE 2)
  920.  (SET #Language (P_AskCatalogs #Language))
  921. (COMPLETE 3)
  922.  (SET #Documents (P_AskHelp #Documents))
  923. (COMPLETE 4)
  924. (IF (<> #Binary 4) ;No Keymaps for Amithlon
  925.  (SET #Keymaps (P_AskKeymap #Keymaps))
  926. )
  927. ;***** Delete old Data and Prefs *****
  928. ;--- Kill WBStartup Tool and Icon
  929. (DELETE (TACKON #WBStartUp #ApplicationName) (optional FORCE))
  930. (DELETE (CAT (TACKON #WBStartUp #ApplicationName) ".info")(optional FORCE))
  931. ;--- V1.xx These files are replaced by PNG version.
  932. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Simple.ilbm"))
  933. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Simple.ilbm.info"))
  934. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/SmurfGift.ilbm"))
  935. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/SmurfGift.ilbm.info"))
  936. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Smurf2.ilbm"))
  937. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Smurf2.ilbm.info"))
  938. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Logo.ilbm"))
  939. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Logo.ilbm.info"))
  940. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/GUI.ilbm"))
  941. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/GUI.ilbm.info"))
  942. ;--- V2.10 Avoid killing user created stuff by deleting known files only!
  943. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Simple.png"))
  944. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Simple.png.info"))
  945. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Smurf1.png"))
  946. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Smurf1.png.info"))
  947. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Smurf2.png"))
  948. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Smurf2.png.info"))
  949. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Logo.png"))
  950. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/Logo.png.info"))
  951. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/GUI.png"))
  952. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs/GUI.png.info"))
  953. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs"))
  954. (Delete (TACKON #ApplicationDir "Presets/PasswordGUIs.info"))
  955. (Delete (TACKON #ApplicationDir "Presets/Keyboards/LogiTechInternetNavigator"))
  956. (Delete (TACKON #ApplicationDir "Presets/Keyboards/TrustErgoTrack"))
  957. (Delete (TACKON #ApplicationDir "Presets/Keyboards/TurboMedia"))
  958. (Delete (TACKON #ApplicationDir "Presets/Keyboards/TrustGMWireless"))
  959. (Delete (TACKON #ApplicationDir "Presets/Keyboards/VivancoSmartKeyboard-MWIEZ-300"))
  960. (Delete (TACKON #ApplicationDir "Presets/Keyboards/Highscreen-MCK-800"))
  961. (Delete (TACKON #ApplicationDir "Presets/Keyboards/Maxell"))
  962. (Delete (TACKON #ApplicationDir "Presets/Keyboards/ChiconyMMInternet"))
  963. (Delete (TACKON #ApplicationDir "Presets/Keyboards/H&H_KB_07_IR"))
  964. (Delete (TACKON #ApplicationDir "Presets/Keyboards/LogiTechITouch"))
  965. (Delete (TACKON #ApplicationDir "Presets/Keyboards/YahooFreedomII"))
  966. (Delete (TACKON #ApplicationDir "Presets/Keyboards"))
  967. (Delete (TACKON #ApplicationDir "Presets/Keyboards.info"))
  968. (Delete (TACKON #ApplicationDir "Presets/Settings") (ALL) (optional FORCE) )
  969. (Delete (TACKON #ApplicationDir "Presets/Settings.info"))
  970. ;--- V2.11 Kill files within "Keyboards/" drawer
  971. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/LogiTechInternetNavigator"))
  972. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/TrustErgoTrack"))
  973. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/TurboMedia"))
  974. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/TrustGMWireless"))
  975. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/VivancoSmartKeyboard-MWIEZ-300"))
  976. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Highscreen-MCK-800"))
  977. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Maxell"))
  978. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/ChiconyMMInternet"))
  979. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/H&H_KB_07_IR"))
  980. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/LogiTechITouch"))
  981. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/YahooFreedomII"))
  982. ;--- V2.13 Kill directories within "Keyboards/" drawer
  983. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Cherry" (ALL) (optional FORCE) ))
  984. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Chicony" (ALL) (optional FORCE) ))
  985. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Commodore" (ALL) (optional FORCE) ))
  986. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Genius" (ALL) (optional FORCE) ))
  987. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Highscreen" (ALL) (optional FORCE) ))
  988. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Logitech" (ALL) (optional FORCE) ))
  989. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Hama" (ALL) (optional FORCE) ))
  990. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Microsoft" (ALL) (optional FORCE) ))
  991. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Miscellaneous" (ALL) (optional FORCE) ))
  992. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Trust" (ALL) (optional FORCE) ))
  993. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Vivanco" (ALL) (optional FORCE) ))
  994. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Keyboards/Yahoo" (ALL) (optional FORCE) ))
  995. ;---
  996. (Delete (TACKON #ApplicationDir "MMKeyboardPrefs"))
  997. (Delete (TACKON #ApplicationDir "MMKeyboardPrefs.info"))
  998. (Delete (TACKON #ApplicationDir "MMKeyboard"))
  999. (Delete (TACKON #ApplicationDir "MMKeyboard.info"))
  1000. (Delete (TACKON #ApplicationDir "Prefs") (ALL) (optional FORCE) )
  1001. ;--- Delete drawers and files that aren't required
  1002. (Delete (TACKON #ApplicationDir "Presets_Amithlon") (ALL) (optional FORCE) )
  1003. (Delete (TACKON #ApplicationDir "Presets/MMKeyboard/Settings/MMKeyboardPrefs.prefs") (ALL) )
  1004. (Delete (TACKON #ApplicationDir "Keymaps") (ALL) (optional FORCE) )
  1005. (Delete (TACKON #ApplicationDir "BinPic"))
  1006. (Delete (TACKON #ApplicationDir "Warning"))
  1007. (Delete (TACKON #ApplicationDir "Warning.info"))
  1008. ;---
  1009. ;***** Create empty Drawers *****
  1010. (MAKEDIR #ApplicationDir)
  1011.  
  1012. (COMPLETE 10)
  1013. (DELETE (TACKON #ApplicationDir "bin") (optional FORCE) (ALL))
  1014.  (P_CopyBinary "MMKeyboardServer")
  1015.  (P_CopyFile "MMKeyboardServer.info")
  1016.  (P_CopyBinary "MMKeyboard")
  1017.  (P_CopyFile "MMKeyboard.info")
  1018. (COMPLETE 20)
  1019. (DELETE (TACKON #ApplicationDir "catalogs") (optional FORCE) (ALL))
  1020.  (P_CopyCatalogs #Language "Catalogs")
  1021. (COMPLETE 30)
  1022. (DELETE (TACKON #ApplicationDir "Help") (optional FORCE) (ALL))
  1023.  (P_CopyHelp #Documents)
  1024. (COMPLETE 40)
  1025. ;--- Use Presets for Amiga
  1026. (IF (<> #Binary 4)
  1027. (
  1028.  (P_CopyDir "BinPIC")
  1029.  (P_CopyKeymap #Keymaps)
  1030.  (P_CopyDir2 "Presets" "Presets")
  1031.  (P_CopyFile2 "Readme_Amiga" "Readme")
  1032.  (P_CopyFile2 "Readme_Amiga.info" "Readme.info")
  1033. )
  1034. )
  1035. (COMPLETE 50)
  1036. ;--- Use Presets_Amithlon for Amithlon
  1037. (IF (= #Binary 4)
  1038. (
  1039.  (P_CopyDir2 "Presets_Amithlon" "Presets")
  1040.  (P_CopyFile2 "Readme_Amithlon" "Readme")
  1041.  (P_CopyFile2 "Readme_Amithlon.info" "Readme.info")
  1042. )
  1043. )
  1044. (COMPLETE 60)
  1045.  (P_MoveWBStartUp "MMKeyboardServer")
  1046. (COMPLETE 70)
  1047.  (P_CopyDir "Help/Pictures")
  1048.  (P_Keyfile)
  1049. (COMPLETE 80)
  1050.  (P_CopyArchiveIcon)
  1051.  (P_CopyFile "Help.info")
  1052.  (P_CopyFile "Presets.info")
  1053.  
  1054. (COMPLETE 90)
  1055. ;-----
  1056. (DELETE (TACKON #ApplicationDir "BinPIC.info"))
  1057.  
  1058. (run "c:avail Flush")
  1059. (COMPLETE 100)
  1060. (message (#App-exit #ApplicationName #ApplicationName #ApplicationDir))
  1061. (exit (QUIET))
  1062. ;-----------------------------------------------
  1063. )) ;IF #InstallerMode = 0
  1064. ;-----------  Deinstallation -------------------
  1065. (IF (= #InstallerMode "1") (
  1066.  
  1067. (COMPLETE 10)
  1068. (SET #ApplicationDir (P_GetDeInstallDir))
  1069. (COMPLETE 20)
  1070. (DELETE #ApplicationDir (ALL) (optional FORCE))
  1071. (COMPLETE 60)
  1072. (DELETE (CAT #ApplicationDir ".info") (optional FORCE))
  1073. (COMPLETE 70)
  1074. (DELETE (CAT (TACKON "ENV:" #ApplicationName) ".prefs")(optional FORCE))
  1075. (COMPLETE 80)
  1076. (DELETE (CAT (TACKON "ENVARC:" #ApplicationName) ".prefs")(optional FORCE))
  1077. (COMPLETE 90)
  1078. (DELETE (CAT (TACKON "ENV:" #ApplicationName) "Prefs.prefs")(optional FORCE))
  1079. (COMPLETE 93)
  1080. (DELETE (CAT (TACKON "ENVARC:" #ApplicationName) "Prefs.prefs")(optional FORCE))
  1081. (COMPLETE 99)
  1082. (DELETE (CAT (TACKON #WBStartUp #ApplicationName) "Server.info")(optional FORCE))
  1083. (COMPLETE 100)
  1084.  
  1085. (Message (#Deinstall-Done #ApplicationName))
  1086. (exit (QUIET))
  1087.  
  1088. ;-----------------------------------------------
  1089. )) ;IF #InstallerMode = 1
  1090. ;-----------------------------------------------
  1091.